home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / TEST21.TRP < prev    next >
Text File  |  1995-01-17  |  297b  |  17 lines
  1.  
  2. { a sample of return in a if statement }
  3.  
  4. procedure main
  5.     doProc;
  6.     writeln('Here I am');
  7.         writeln('2 + 2 = 4');
  8. endProc
  9.  
  10. procedure doProc;
  11.     if (true)
  12.         return;
  13.         nothing we will ever get to here, so there will be no error.
  14.     endif
  15.         writeln('what is this ?');
  16. endProc
  17.